home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK11⁄89.cpt / LImacSTACK.11_89 / card_4127.txt < prev    next >
Text File  |  1989-11-02  |  8KB  |  354 lines
  1. -- card: 4127 from stack: in.11_89
  2. -- bmap block id: 4903
  3. -- flags: 0000
  4. -- background id: 4490
  5. -- name: LImacSTACK Index
  6. ----- HyperTalk script -----
  7. on openCard
  8.   show cd btn "Who?"
  9.   show cd btn "Help"
  10. end openCArd
  11.  
  12. on closeCard
  13.  
  14. end closeCard
  15.  
  16.  
  17. -- part 2 (button)
  18. -- low flags: 00
  19. -- high flags: 2000
  20. -- rect: left=185 top=193 right=297 bottom=317
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 1024
  27. -- line height: 16
  28. -- part name: LIMac Info
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   push cd
  32.   visual barn door close to black
  33.   visual barn door open
  34.   go cd "Schedule"
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 3 (button)
  40. -- low flags: 00
  41. -- high flags: A000
  42. -- rect: left=23 top=259 right=276 bottom=153
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 1024
  49. -- line height: 16
  50. -- part name: Random Shortcuts
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   push cd
  54.   visual barn door close to black
  55.   visual barn door open
  56.   go cd "Shortcuts"
  57. end mouseUp
  58.  
  59.  
  60. -- part 5 (button)
  61. -- low flags: 00
  62. -- high flags: A000
  63. -- rect: left=23 top=211 right=228 bottom=158
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 1024
  70. -- line height: 16
  71. -- part name: Studio/1
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   push cd
  75.   visual barn door close to black
  76.   visual barn door open
  77.   go cd "studio/1"
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 6 (button)
  83. -- low flags: 00
  84. -- high flags: A000
  85. -- rect: left=348 top=259 right=276 bottom=482
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 1024
  92. -- line height: 16
  93. -- part name: Stacks
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   push cd
  97.   visual barn door close to black
  98.   visual barn door open
  99.   go cd "stacks"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 8 (button)
  105. -- low flags: 00
  106. -- high flags: 2000
  107. -- rect: left=469 top=27 right=48 bottom=497
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 3
  112. -- text size: 9
  113. -- style flags: 256
  114. -- line height: 12
  115. -- part name: New Button
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   visual iris open to white
  119.   visual dissolve
  120.   go stack "HOME"
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 11 (button)
  126. -- low flags: 00
  127. -- high flags: 2000
  128. -- rect: left=249 top=322 right=342 bottom=268
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 1009 / 1009
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 1024
  135. -- line height: 16
  136. -- part name: Show Radio
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   push cd
  140.   visual barn door close to black
  141.   visual barn door open
  142.   go card "Resource Lister"
  143. end mouseUp
  144.  
  145.  
  146. -- part 13 (button)
  147. -- low flags: 00
  148. -- high flags: 2000
  149. -- rect: left=213 top=322 right=342 bottom=232
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 1009 / 1009
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 1024
  156. -- line height: 16
  157. -- part name: Show TV
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   push cd
  161.   visual barn door close to black
  162.   visual barn door open
  163.   go card "Resource Lister"
  164. end mouseUp
  165.  
  166.  
  167. -- part 21 (button)
  168. -- low flags: 00
  169. -- high flags: 2000
  170. -- rect: left=444 top=58 right=93 bottom=494
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 2478 / 2478
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Who?
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   set the visible of cd fld "Credits" to not the visible of cd fld "Credits"
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 18 (button)
  187. -- low flags: 00
  188. -- high flags: 2000
  189. -- rect: left=17 top=121 right=160 bottom=60
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: Flash!
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   push cd
  201.   visual zoom open
  202.   go cd "bulletin board"
  203.   play "boing" tempo 300 c5e e g c6 e c g5 e c
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 23 (button)
  209. -- low flags: 00
  210. -- high flags: A000
  211. -- rect: left=348 top=211 right=228 bottom=483
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 1024
  218. -- line height: 16
  219. -- part name: HyperTalk
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   push cd
  223.   visual barn door close to black
  224.   visual barn door open
  225.   go cd "tips template"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 22 (field)
  231. -- low flags: 81
  232. -- high flags: 2004
  233. -- rect: left=66 top=120 right=324 bottom=447
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 3
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Credits
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   hide me
  245. end mouseUp
  246.  
  247.  
  248. -- part 15 (button)
  249. -- low flags: 00
  250. -- high flags: 2000
  251. -- rect: left=445 top=120 right=157 bottom=495
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 1020 / 1020
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Help
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   push cd
  263.   visual iris open
  264.   go cd "Navigation Help"
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 25 (button)
  270. -- low flags: 00
  271. -- high flags: 2000
  272. -- rect: left=125 top=298 right=320 bottom=377
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: sends mouseUp
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   send mouseUp to cd btn "LIMac Info"
  284. end mouseUp
  285.  
  286.  
  287.  
  288. -- part 27 (button)
  289. -- low flags: 00
  290. -- high flags: A000
  291. -- rect: left=206 top=30 right=79 bottom=298
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 29107 / 29107
  294. -- text alignment: 1
  295. -- font id: 0
  296. -- text size: 12
  297. -- style flags: 0
  298. -- line height: 16
  299. -- part name: LImacSTACK.11/89
  300. ----- HyperTalk script -----
  301. on mouseUp
  302.   -- by Tom Wimbish
  303.   put the short name of the target into NAME
  304.   answer "Paste this button into another stack?" with "No" or "Sure!"
  305.   if it is "No" then exit mouseUp
  306.   ask "Paste LImacSTACK's button into which stack?" with "Home"
  307.   if it is empty then exit mouseUp
  308.   put it into DeSt
  309.   put "on mouseUp" & return into myScript
  310.   put "go stack" & quote & NAME & quote & return after myScript
  311.   put "end mouseUp" after myScript
  312.   lock screen
  313.   select the target
  314.   doMenu "Copy Button"
  315.   go stack deSt
  316.   repeat with i = 1 to the number of btns
  317.     if short name of btn i = NAME then
  318.       go back
  319.       choose browse tool
  320.       answer "LImacSTACK's button is already there!"
  321.       hide menuBar
  322.       unlock screen with dissolve
  323.       exit mouseUp
  324.     end if
  325.   end repeat
  326.   doMenu "Paste Button"
  327.   set the rect of btn NAME to 202,30,289,79
  328.   set the showName of btn NAME to true
  329.   choose browse tool
  330.   set cursor to hand
  331.   unlock screen
  332.   get the mouseClick
  333.   answer "Drag button to a comfy spot & click."
  334.   repeat until the mouseClick
  335.     set loc of btn NAME to the mouseLoc
  336.   end repeat
  337.   set the script of button NAME to myScript
  338. end mouseUp
  339.  
  340.  
  341.  
  342. -- part contents for card part 22
  343. ----- text -----
  344. This stack was constructed by
  345. Kevin Moan
  346. HyperCard SIG Leader
  347. Long Island Macintosh User Group
  348.  
  349. Xthing Acknowledgments:
  350. (see stack script)
  351.  
  352. ¬© 1989 Kevin Moan
  353. CIS:73210,2732 - GEnie:K.MOAN - MacNET:MOAN
  354.